home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aap.d64 / proc.procs < prev    next >
Text File  |  2007-02-28  |  2KB  |  55 lines
  1. 0760 ╨╥╧├ PROCS ├╠╧╙┼─
  2. 0770   START:=$0800 //  OF ├╧═┴╠ PROGRAM
  3. 0780   ╥┼╨┼┴╘ 
  4. 0790     HILIN#:=╨┼┼╦(START)
  5. 0800     LOLIN#:=╨┼┼╦(START+1)
  6. 0810     LINNO:=HILIN#*256+LOLIN#
  7. 0820     LENGTH#:=╨┼┼╦(START+2)
  8. 0830     TOKEN#:=╨┼┼╦(START+3)
  9. 0840     ├┴╙┼ TOKEN# ╧╞
  10. 0850     ╫╚┼╬ 112 // FOUND PROCEDURE
  11. 0860       LOOFF#:=╨┼┼╦(START+4)
  12. 0870       HIOFF#:=╨┼┼╦(START+5)
  13. 0880       NAMOFF:=HIOFF#*256+LOOFF#
  14. 0890       FN$:=NAME$(NAMOFF)
  15. 0900       ╔╞ LINNO>10000 ╘╚┼╬ // NOT HIDDENT
  16. 0910         ╨╥╔╬╘ " ╨╥╧├ ",FN$
  17. 0920       ┼╬─╔╞ 
  18. 0930     ╫╚┼╬ 227,228,229 // FUNCTION
  19. 0940       LOOFF#:=╨┼┼╦(START+4)
  20. 0950       HIOFF#:=╨┼┼╦(START+5)
  21. 0960       NAMOFF:=HIOFF#*256+LOOFF#
  22. 0970       FN$:=NAME$(NAMOFF)
  23. 0980       ╔╞ LINNO>10000 ╘╚┼╬ // NOT HIDDENT
  24. 0990         ╨╥╔╬╘ " ╞╒╬├ ",FN$, // FOLLOWED
  25. 1000         ├┴╙┼ TOKEN# ╧╞ // BY CHAR TYPE
  26. 1010         ╫╚┼╬ 227 //          REAL FUNC
  27. 1020           ╨╥╔╬╘ ""
  28. 1030         ╫╚┼╬ 228 //       INTEGER FUNC
  29. 1040           ╨╥╔╬╘ "#"
  30. 1050         ╫╚┼╬ 229 //        STRING FUNC
  31. 1060           ╨╥╔╬╘ "$"
  32. 1070         ┼╬─├┴╙┼ 
  33. 1080       ┼╬─╔╞ 
  34. 1090     ╧╘╚┼╥╫╔╙┼ // SOMETHING ELSE
  35. 1100     ┼╬─├┴╙┼ 
  36. 1110     START:+LENGTH#
  37. 1120   ╒╬╘╔╠ LENGTH#=0 //   END OF TABLE
  38. 1130   //
  39. 1140   ╞╒╬├ NAME$(AD) ├╠╧╙┼─
  40. 1150     //
  41. 1160     // AD IS OFFSET IN NAME TABLE
  42. 1170     //
  43. 1180     NAMTAB:=$18 //   PNTR NAME TABLE
  44. 1190     LONAM#:=╨┼┼╦(NAMTAB)
  45. 1200     HINAM#:=╨┼┼╦(NAMTAB+1)
  46. 1210     NAMSTART:=HINAM#*256+LONAM#+AD
  47. 1220     NAMLEN#:=╨┼┼╦(NAMSTART)-4
  48. 1230     N$:=""
  49. 1240     ╞╧╥ T#:=1 ╘╧ NAMLEN# ─╧
  50. 1250       N$:+├╚╥$(╨┼┼╦(NAMSTART+T#+3))
  51. 1260     ┼╬─╞╧╥ T#
  52. 1270     ╥┼╘╒╥╬ N$
  53. 1280   ┼╬─╞╒╬├ NAME$
  54. 1290 ┼╬─╨╥╧├ PROCS
  55.